Public Class CDoctor
    Dim _intDocID As Integer
    Dim _strDocSeqID As String
    Dim _person As New CPerson
    Dim _hospital As New CHospital
    Dim _strQual As String
    Dim _strSpecial As String
    Dim _strRefType As String
    Dim _strRefAmt As String
    Dim _chrStatus As Char

    Public Property doctorID() As Integer
        Get
            Return _intDocID
        End Get
        Set(ByVal value As Integer)
            _intDocID = value
        End Set
    End Property
    Public Property doctorSeqID() As String
        Get
            Return _strDocSeqID
        End Get
        Set(ByVal value As String)
            _strDocSeqID = value
        End Set
    End Property

    Public Property person() As CPerson
        Get
            Return _person
        End Get
        Set(ByVal value As CPerson)
            _person = value
        End Set
    End Property
    Public Property hospital() As CHospital
        Get
            Return _hospital
        End Get
        Set(ByVal value As CHospital)
            _hospital = value
        End Set
    End Property

    Public Property qualification() As String
        Get
            Return _strQual
        End Get
        Set(ByVal value As String)
            _strQual = value
        End Set
    End Property
    Public Property specialisation() As String
        Get
            Return _strSpecial
        End Get
        Set(ByVal value As String)
            _strSpecial = value
        End Set
    End Property
    Public Property RefType() As String
        Get
            Return _strRefType
        End Get
        Set(ByVal value As String)
            _strRefType = value
        End Set
    End Property
    Public Property RefAmount() As String
        Get
            Return _strRefAmt
        End Get
        Set(ByVal value As String)
            _strRefAmt = value
        End Set
    End Property
    Public Property Status() As Char
        Get
            Return _chrStatus
        End Get
        Set(ByVal value As Char)
            _chrStatus = value
        End Set
    End Property
End Class
